8 SI=54272
10 DIM N$(96),LB(96),HB(96),A1(150),B1(150),A2(150),B2(150),A3(150),B3(150)
100 PRINT"[147]":FORG=0TO95:READ N$(G),HB(G),LB(G):PRINTN$(G):NEXTG:N=1
101 PRINT"[147]";
102 PRINT""N". 1 . NOTE :"
103 INPUT" ";A$
104 IFA$="ENDE"THEN200
105 FORG=0TO96
106 IFN$(G)=A$THEN108
107 NEXT:PRINT" FEHLER !":PRINT"[145][145][145][145]":GOTO103
108 REM
109 A1(N)=HB(G):B1(N)=LB(G):PRINT""N". 2 . NOTE :"
110 INPUT" ";A$
111 FORG=0TO96
112 IFN$(G)=A$THEN114
113 NEXT:PRINT" FEHLER !":PRINT"[145][145][145][145]":GOTO110
114 A2(N)=HB(G):B2(N)=LB(G)
115 PRINT""N". 3 . NOTE :":INPUT" ";A$
116 FORG=0TO96
117 IFN$(G)=A$THEN119
118 NEXT:PRINT" FEHLER !":PRINT"[145][145][145][145]":GOTO115
119 REM
120 A3(N)=HB(G):B3(N)=LB(G)
121 N=N+1:GOTO101
200 POKESI+5,8*16+1:POKESI+6,3*16+3
201 POKESI+12,5*16+6:POKESI+13,7*16+8
202 POKESI+19,4*16+6:POKESI+20,8*16+8
203 POKESI+24,15
204 FORG=1TON
205 POKESI,B1(G):POKESI+7,B2(G):POKESI+14,B3(G)
206 POKESI+1,A1(G):POKESI+8,A2(G):POKESI+15,A3(G)
207 POKESI+4,33:POKESI+11,17:POKESI+18,33
208 FORQ=1TO200:NEXTQ,G
209 INPUT" OK ?";A$:IFA$="JA"THEN101
210 IFA$="NEIN"THENEND
211 IFA$="SAVE"THEN800
212 PRINT"[145][145]":GOTO209
800 OPEN2,8,2,"@:"+Z$+".SONG,S,W"
801 PRINT#2,N:FORG=1TON
802 PRINT#2,A1(G)
803 PRINT#2,A2(G)
804 PRINT#2,A3(G)
805 PRINT#2,B1(G)
806 PRINT#2,B2(G)
807 PRINT#2,B3(G)
808 NEXTG:CLOSE2:END
1000 DATA "C0",1,22,"C#0",1,39,"D0",1,57,"D#0",1,75,"E0",1,95,"F0",1,116
1001 DATA "F#0",1,138,"G0",1,161,"G#0",1,186,"A0",1,212,"A#0",1,240,"H0",2,14
1002 REM
1003 DATA "C1",2,45,"C#1",2,78,"D1",2,113,"D#1",2,150,"E1",2,190,"F1",2,231
1004 DATA "F#1",3,20,"G1",3,66,"G#1",3,116,"A1",3,169,"A#1",3,224,"H1",4,27
1005 REM
1006 DATA "C2",4,90,"C#2",4,156,"D2",4,226,"D#2",5,45,"E2",5,123,"F2",5,207
1007 DATA "F#2",6,39,"G2",6,133,"G#2",6,232,"A2",7,81,"A#2",7,193,"H2",8,55
1008 REM
1009 DATA "C3",8,180,"C#3",9,56,"D3",9,196,"D#3",10,89,"E3",10,247,"F3",11,158
1010 DATA "F#3",12,78,"G3",13,10,"G#3",13,208,"A3",14,162,"A#3",15,129,"H3"
1011 DATA 16,109
1012 REM
1013 DATA "C4",17,103,"C#4",18,112,"D4",19,137,"D#4",20,178,"E4",21,237,"F4"
1014 DATA 23,59,"F#4",24,157,"G4",26,20,"G#4",27,160,"A4",29,69,"A#4",31,3
1015 DATA "H4",32,219
1016 REM
1017 DATA "C5",34,207,"C#5",36,225,"D5",39,18,"D#5",41,101,"E5",43,219,"F5"
1018 DATA 46,118,"F#5",49,58,"G5",52,39,"G#5",55,65,"A5",58,138,"A#5",62,5
1019 DATA "H5",65,181
1020 REM
1021 DATA "C6",69,157,"C#6",73,193,"D6",78,36,"D#6",82,201,"E6",87,182,"F6"
1022 DATA 92,237,"F#6",98,115,"G6",104,78,"G#6",110,130,"A6",117,20,"A#6",124
1023 DATA 10,"H6",131,105
1024 REM
1025 DATA "C7",139,59,"C#7",147,130,"D7",156,72,"D#7",165,147,"E7",175,107
1026 DATA "F7",185,218,"F#7",196,231,"G7",208,156,"G#7",221,4,"A7",234,40,"A#7"
1027 DATA 248,20
1028 REM
1029 DATA "PAUSE",0,0